home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00050_sparkle parent for Mac.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  617 b   |  27 lines
  1. property sparkleCookie, sparklePointer
  2.  
  3. on birth me
  4.   return me
  5. end
  6.  
  7. on loadsparkle me
  8.   global gmasterfolderpath, gFileName
  9.   set sparklePictPath to gmasterfolderpath & getProp(gFileName, #sparkle)
  10.   blitpict("init", "file", sparklePictPath, EMPTY, "1")
  11.   set sparkleCookie to the result
  12.   set sparklePointer to item 1 of sparkleCookie
  13. end
  14.  
  15. on sparkle me, H, V
  16.   puppetSound("Sparkle.snd")
  17.   updateStage()
  18.   blitpict("DRAWSPARKLE", the sparklePointer of me, "0,0,32,32", H & "," & V, 2)
  19.   repeat while soundBusy(1)
  20.   end repeat
  21.   puppetSound(0)
  22. end
  23.  
  24. on killsparkle me
  25.   blitpict("kill", the sparkleCookie of me)
  26. end
  27.